BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / D-G / FORTRAN Goodies.sit / FORTRAN Goodies / PcallsF / FortSubs.f next >

MacBinary | 1990-12-03 | 1.6 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Freeze Frozen Compressed File `(archive/freeze)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	MathVISION Formula `(other/mathVISIONFormula)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Mon Dec 3 09:30:40 1990, modified Mon Dec 3 09:30:40 1990, creator 'MPS ', type ASCII, 1091 bytes "FortSubs.f" , at 0x4c3 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 46 6f 72 74 53 75 | 62 73 2e 66 00 00 00 00 |..FortSu|bs.f....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 04 43 00 | 00 01 7e a3 80 12 10 a3 |......C.|..~.....|
|00000060| 80 12 10 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 64 08 00 00 |........|....d...|
|00000080| 63 09 54 68 69 73 20 63 | 6f 6c 6c 65 63 74 69 6f |c.This c|ollectio|
|00000090| 6e 20 6f 66 20 73 75 62 | 72 6f 75 74 69 6e 65 73 |n of sub|routines|
|000000a0| 20 69 73 20 63 61 6c 6c | 65 64 20 62 79 20 74 68 | is call|ed by th|
|000000b0| 65 20 50 61 73 63 61 6c | 0d 63 09 70 72 6f 67 72 |e Pascal|.c.progr|
|000000c0| 61 6d 20 50 63 61 6c 6c | 73 46 2e 0d 63 0d 63 09 |am Pcall|sF..c.c.|
|000000d0| 45 78 61 6d 70 6c 65 20 | 70 72 6f 76 69 64 65 64 |Example |provided|
|000000e0| 20 66 6f 72 20 6f 77 6e | 65 72 73 20 6f 66 20 4c | for own|ers of L|
|000000f0| 61 6e 67 75 61 67 65 20 | 53 79 73 74 65 6d 73 20 |anguage |Systems |
|00000100| 46 4f 52 54 52 41 4e 0d | 63 09 a9 ca 31 39 39 30 |FORTRAN.|c...1990|
|00000110| 20 4c 61 6e 67 75 61 67 | 65 20 53 79 73 74 65 6d | Languag|e System|
|00000120| 73 20 43 6f 72 70 2e 0d | 63 0d 0d 09 53 55 42 52 |s Corp..|c...SUBR|
|00000130| 4f 55 54 49 4e 45 20 43 | 68 61 72 66 69 6c 6c 20 |OUTINE C|harfill |
|00000140| 28 63 63 29 09 21 45 78 | 70 65 63 74 20 61 72 67 |(cc).!Ex|pect arg|
|00000150| 75 6d 65 6e 74 73 20 62 | 79 20 64 65 73 63 72 69 |uments b|y descri|
|00000160| 70 74 6f 72 0d 09 0d 09 | 43 48 41 52 41 43 54 45 |ptor....|CHARACTE|
|00000170| 52 2a 32 30 20 63 63 09 | 09 09 09 21 44 65 66 69 |R*20 cc.|...!Defi|
|00000180| 6e 65 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 0d |ne the a|rgument.|
|00000190| 09 0d 09 63 63 20 3d 20 | 27 48 65 6c 6c 6f 20 57 |...cc = |'Hello W|
|000001a0| 6f 72 6c 64 21 27 0d 09 | 0d 09 45 4e 44 0d 09 0d |orld!'..|..END...|
|000001b0| 09 53 55 42 52 4f 55 54 | 49 4e 45 20 43 68 61 72 |.SUBROUT|INE Char|
|000001c0| 66 69 6c 6c 32 28 63 63 | 29 09 21 45 78 70 65 63 |fill2(cc|).!Expec|
|000001d0| 74 73 20 61 72 67 75 6d | 65 6e 74 20 62 79 20 72 |ts argum|ent by r|
|000001e0| 65 66 65 72 65 6e 63 65 | 0d 09 0d 09 53 54 52 55 |eference|....STRU|
|000001f0| 43 54 55 52 45 20 2f 43 | 2f 0d 09 09 43 48 41 52 |CTURE /C|/...CHAR|
|00000200| 41 43 54 45 52 2a 32 30 | 20 63 68 09 09 09 21 44 |ACTER*20| ch...!D|
|00000210| 65 66 69 6e 65 20 74 68 | 65 20 61 72 67 75 6d 65 |efine th|e argume|
|00000220| 6e 74 0d 09 45 4e 44 20 | 53 54 52 55 43 54 55 52 |nt..END |STRUCTUR|
|00000230| 45 0d 09 0d 09 52 45 43 | 4f 52 44 20 2f 43 2f 20 |E....REC|ORD /C/ |
|00000240| 63 63 0d 09 63 63 2e 63 | 68 20 3d 20 27 54 68 69 |cc..cc.c|h = 'Thi|
|00000250| 73 20 69 73 20 61 20 73 | 77 69 74 63 68 21 27 0d |s is a s|witch!'.|
|00000260| 09 0d 09 45 4e 44 0d 09 | 0d 09 53 55 42 52 4f 55 |...END..|..SUBROU|
|00000270| 54 49 4e 45 20 53 75 6d | 41 72 72 61 79 28 69 61 |TINE Sum|Array(ia|
|00000280| 72 79 2c 25 76 61 6c 28 | 6e 29 2c 74 6f 74 61 6c |ry,%val(|n),total|
|00000290| 29 0d 21 09 45 78 70 65 | 63 74 73 20 66 69 72 73 |).!.Expe|cts firs|
|000002a0| 74 20 61 72 67 75 6d 65 | 6e 74 20 62 79 20 72 65 |t argume|nt by re|
|000002b0| 66 65 72 65 6e 63 65 2c | 20 73 65 63 6f 6e 64 20 |ference,| second |
|000002c0| 62 79 20 76 61 6c 75 65 | 0d 09 69 6e 74 65 67 65 |by value|..intege|
|000002d0| 72 2a 32 20 69 61 72 79 | 28 31 30 30 29 2c 74 6f |r*2 iary|(100),to|
|000002e0| 74 61 6c 2c 69 6e 64 65 | 78 2c 20 6e 09 21 44 65 |tal,inde|x, n.!De|
|000002f0| 66 69 6e 65 20 74 68 65 | 20 61 72 67 75 6d 65 6e |fine the| argumen|
|00000300| 74 73 20 61 6e 64 20 77 | 6f 72 6b 20 63 6f 75 6e |ts and w|ork coun|
|00000310| 74 65 72 0d 09 0d 09 74 | 6f 74 61 6c 20 3d 20 30 |ter....t|otal = 0|
|00000320| 09 09 09 09 09 21 43 6c | 65 61 72 20 74 68 65 20 |.....!Cl|ear the |
|00000330| 74 6f 74 61 6c 0d 09 0d | 09 64 6f 20 69 6e 64 65 |total...|.do inde|
|00000340| 78 20 3d 20 31 2c 6e 09 | 09 09 09 21 53 74 65 70 |x = 1,n.|...!Step|
|00000350| 20 74 68 72 6f 75 67 68 | 20 74 68 65 20 61 72 72 | through| the arr|
|00000360| 61 79 0d 09 74 6f 74 61 | 6c 20 3d 20 74 6f 74 61 |ay..tota|l = tota|
|00000370| 6c 20 2b 20 69 61 72 79 | 28 69 6e 64 65 78 29 09 |l + iary|(index).|
|00000380| 21 41 64 64 20 74 68 65 | 6d 20 75 70 0d 09 65 6e |!Add the|m up..en|
|00000390| 64 20 64 6f 0d 09 0d 09 | 65 6e 64 09 09 09 09 09 |d do....|end.....|
|000003a0| 09 09 21 41 6e 64 20 65 | 78 69 74 0d 09 0d 09 53 |..!And e|xit....S|
|000003b0| 55 42 52 4f 55 54 49 4e | 45 20 53 75 6d 41 72 72 |UBROUTIN|E SumArr|
|000003c0| 61 79 32 0d 09 69 6e 74 | 65 67 65 72 2a 32 20 69 |ay2..int|eger*2 i|
|000003d0| 61 72 79 32 28 31 30 30 | 29 2c 74 6f 74 61 6c 32 |ary2(100|),total2|
|000003e0| 2c 69 6e 64 65 78 2c 6e | 32 09 21 44 65 66 69 6e |,index,n|2.!Defin|
|000003f0| 65 20 61 72 67 75 6d 65 | 6e 74 73 20 61 6e 64 20 |e argume|nts and |
|00000400| 77 6f 72 6b 20 63 6f 75 | 6e 74 65 72 0d 09 43 4f |work cou|nter..CO|
|00000410| 4d 4d 4f 4e 20 2f 54 45 | 53 54 2f 20 69 61 72 79 |MMON /TE|ST/ iary|
|00000420| 32 2c 74 6f 74 61 6c 32 | 2c 6e 32 0d 09 74 6f 74 |2,total2|,n2..tot|
|00000430| 61 6c 32 20 3d 20 30 09 | 09 09 09 09 21 43 6c 65 |al2 = 0.|....!Cle|
|00000440| 61 72 20 74 68 65 20 74 | 6f 74 61 6c 0d 09 0d 09 |ar the t|otal....|
|00000450| 64 6f 20 69 6e 64 65 78 | 20 3d 20 31 2c 6e 32 09 |do index| = 1,n2.|
|00000460| 09 09 09 21 53 74 65 70 | 20 74 68 72 6f 75 67 68 |...!Step| through|
|00000470| 20 74 68 65 20 61 72 72 | 61 79 0d 09 74 6f 74 61 | the arr|ay..tota|
|00000480| 6c 32 20 3d 20 74 6f 74 | 61 6c 32 2b 69 61 72 79 |l2 = tot|al2+iary|
|00000490| 32 28 69 6e 64 65 78 29 | 09 21 41 64 64 20 74 68 |2(index)|.!Add th|
|000004a0| 65 6d 20 75 70 0d 09 65 | 6e 64 64 6f 0d 09 0d 09 |em up..e|nddo....|
|000004b0| 65 6e 64 09 09 09 09 09 | 09 09 21 41 6e 64 20 65 |end.....|..!And e|
|000004c0| 78 69 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |xit.....|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000510| 10 03 00 00 1f fe 00 00 | 00 00 00 36 00 00 00 00 |........|...6....|
|00000520| 00 02 00 00 00 00 00 12 | 00 0f 00 00 00 00 03 c0 |........|........|
|00000530| 0a 46 6f 72 74 53 75 62 | 73 2e 66 01 02 00 00 00 |.FortSub|s.f.....|
|00000540| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|00000550| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 a9 80 18 cb 00 00 | 00 00 00 00 01 7e 80 00 |........|.....~..|
|00000580| 08 00 80 00 7f ff f0 00 | 50 00 58 00 5f ff d8 00 |........|P.X._...|
|00000590| 40 00 10 00 40 00 10 00 | 40 00 10 00 7f ff f0 00 |@...@...|@.......|
|000005a0| 40 00 10 00 7f ff f0 00 | 00 00 00 00 00 00 00 10 |@.......|........|
|000005b0| 00 cb 00 00 00 00 00 00 | 00 00 ff ff ff ff 00 00 |........|........|
|000005c0| 00 00 00 10 00 c8 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|000005d0| ff ff 00 00 00 00 00 10 | 00 c9 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 ff ff ff ff 00 00 | 00 00 00 3f 00 01 00 00 |........|...?....|
|000005f0| 00 00 00 00 00 00 ff ff | ff f7 01 14 15 41 62 6f |........|.....Abo|
|00000600| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 67 75 6d |...H..Mo|naco.gum|
|00000610| 65 6e 74 73 20 62 79 20 | 64 65 73 63 72 69 70 74 |ents by |descript|
|00000620| 6f 72 0d 09 0d 09 00 06 | 00 04 00 3b 00 02 00 97 |or......|...;....|
|00000630| 01 a4 00 3b 00 02 00 97 | 01 a4 a3 7f cb c0 00 00 |...;....|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000650| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 28 ac 6c |...L...L|...2.(.l|
|00000660| 07 5a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.Z.....2|..MPSR..|
|00000670| 00 0a 03 ed ff ff 00 00 | 00 00 00 2a 52 a4 00 00 |........|...*R...|
+--------+-------------------------+-------------------------+--------+--------+